home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00003Series_80.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  1.3 KB  |  52 lines
  1. on mouseUp
  2.   puppetTransition(47, 1, 8)
  3.   put EMPTY into field "brakeoption"
  4.   if the hilite of cast "b_BRK4" = 1 then
  5.     put "BRK4:Total Lock; " after field "brakeoption"
  6.   end if
  7.   if the hilite of cast "b_BRK1b" = 1 then
  8.     put "BRK1:Tread Lock; " after field "brakeoption"
  9.   end if
  10.   if the hilite of cast "b_BRK2" = 1 then
  11.     put "BRK2:Tech Lock; " after field "brakeoption"
  12.   end if
  13.   if the hilite of cast "b_BRK3" = 1 then
  14.     put "BRK3:Side Lock; " after field "brakeoption"
  15.   end if
  16.   if field "tblcaste,OTHER_OP" contains "SEAL" then
  17.     if field "tblwheel,TG_OP" contains "TG1" then
  18.       if field "tblwheel,TG_OP" contains "TG2" then
  19.         play frame "4boptionj"
  20.         abort()
  21.       else
  22.         play frame "4boptioni"
  23.         abort()
  24.       end if
  25.       if field "tblwheel,TG_OP" contains "TG2" then
  26.         play frame "4boptionk"
  27.         abort()
  28.       else
  29.         play frame "4boptionl"
  30.         abort()
  31.       end if
  32.     end if
  33.   end if
  34.   if field "tblwheel,TG_OP" contains "TG1" then
  35.     if field "tblwheel,TG_OP" contains "TG2" then
  36.       play frame "4boptionn"
  37.       abort()
  38.     else
  39.       play frame "4boptionm"
  40.       abort()
  41.     end if
  42.     if field "tblwheel,TG_OP" contains "TG2" then
  43.       play frame "4boptiono"
  44.       abort()
  45.     else
  46.       play frame "4boptionp"
  47.       abort()
  48.     end if
  49.   end if
  50.   play frame "4boptionp"
  51. end
  52.